(pp-to-string): Treat #( like (.

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index f7e6afb49521d82f37d118cec65f566536722323..90f9323acd45d3380d94fb8198100d5ed727c825 100644 (file)
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -41,8 +41,8 @@ that `read' can handle, whenever this is possible."
          (while (not (eobp))
            ;; (message "%06d" (- (point-max) (point)))
            (cond
-            ((looking-at "\\s\(")
-             (while (looking-at "\\s(")
+            ((looking-at "\\s(\\|#\\s(")
+             (while (looking-at "\\s(\\|#\\s(")
                (forward-char 1)))
             ((and (looking-at "\\(quote[ \t]+\\)\\([^.)]\\)")
                   (> (match-beginning 1) 1)